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macstinee TIMER ROUTINES 


COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
ALL RIGHTS RESERVED. 


THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED 

IN ACCORDANCE WITH THE TERMS OF SUCH Ltt AND WITH THE 
USION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER 
ES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY 
OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY 
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THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
eoRPORAT ibn NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 


DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR _ RELIABILITY OF ITS 
SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 


SOOO COCOCOCOOCOOCOCOOOOCOOoOoOOO 
SOOCOoooooooCooooooooooooo 
pepo foo fofololofelelololololololeloloeloloelolo) 
paleo lel aleleleleleleleleleleolelelelelelelealeo) 


LARRARARARLALARAAAAAALARLAALARLASARALESASARARA RE RR RA RR RARE SARA ARA ALAR ADS SSA SO 


FACILITY: VAX MACRO ASSEMBLER OBJECT LIBRARY 
ABSTRACT: 


The VAX-11 MACRO assembler translates MACRO-32 source code into object 
modules for input to the VAX-11 LINKER. 
| 
| 
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ENVIRONMENT: USER MODE 
AUTHOR: Benn Schreiber, CREATION DATE: 20-AUG-78 


; MODIFIED BY: 
a 2 VERSION 
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MACSTIMER TIMER ROUTINES 16-SEP=1 2: AX/VMS Macro V04-00 P | 
vO4G=000 DECLARATIONS $23 SEP= 1984 Of: $6 85 EMACRO. SRCITIMER, MAR; 1 te 3) 
47 .SBTTL DECLARATIONS | 
a3 ; INCLUDE FILES: | 
ane | 
4 : MACROS: | 
$3 3 
: : SJPIDEF :DEFINE JOB/PROCESS INFO ITEM CODES 
000 60 : LOCAL STORAGE 
0000 61: 
9000 6¢ 
00000000 63 .PSECT MACSTIMER_DATA,NOEXE LONG 
9000 65 GETJPI_ARGBLK: s ARGUMENT BLOCK FOR GETUPI | 
000 66 $GETJPI ITMLST=GETJPI_LIST | 
0020 67 
0020 68 GETJPI_LIST: 
0407 0008 0020 69 .WORD 8, JPI$_CPUTIM ;RESULT IS 8 BYTES LONG 
0000003c* 0024 70 [LONG CPU_TIME : WHERE TO RETURN CPU TIME 
00000000 0028 71 "LONG 0 [DON'T CARE HOw LONG RESULT IS 
040A 000 002¢ te "WORD 4, JPI$_PAGEFLTS :4 BYTES, GET # PAGE FAULTS 
0000004c" 0030 7 “LONG PAGE_FAULTS ‘WHERE TO STORE RESUL 
00000000 0034 7% "LONG 0 [DON'T CARE HOW LONG RESULT 1S 
00000000 0038 £3 "LONG 0 [END OF LIST 
003¢ A .DEBUG CPU_TIME,TIME,PAGE_FAULTS 
00000044 003C 79 CPU_TIME:.BLKQ 1 :CPU TIME RETURNED FROM GETJPI 
0044 80 TIME: 
0000004C 0044 ~=81 .BLKQ 1 
004¢ Be PAGE _FAULTS: 
00000050 004¢ 83 -BLKL 1 :# PAGE FAULTS 
00000000 ~=—s«85 .PSECT MACSRO_CODE_P15,NOWRT,GBL,LONG 
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-SBTTL MACSTIMER_ON BEGIN TIMING A BLOCK OF CODE 
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; FUNCTIONAL DESCRIPTION: 

THIS ROUTINE SETS THE STARTING TIME FOR A BLOCK OF CODE. | 
CALLING SEQUENCE: 


PUSHAB DUAL_QUAD_ WORDS 
CALLS #1,MACSTIMER_ON 


INPUTS: 


DUAL_QUAD_WORDS IS THE ADDRESS OF TWO QUADWORDS. THE FIRST 
WILL RECEIVE THE CPU TIME FOR THE BLOCK OF 
COE (DELTA FORMAT) AND THE SECOND WILL RECEIVE 
THE ELAPSED TIME FOR THE BLOCK OF CODE. | 


MACSTIMER_ON:: 


SOOCCCCCOCOCOCOCSOOSCOOOCOOCOOOOOSOoOOOOoOOoOoO 32 
ee ee ee ee ee Re Re ee ee 


Mm S -“DOCCCOCOCOOOOCOOCOOOOOCOOOOOooo MoO 
alas: Te tdi wlololeleleleoleleleleleloleleleoleololeololololola) s 
St HS “$QOOCDTOCOOCOOCOCVOVOCOOOOOO0OO0O@O@MDMD Wu 


SOOCOCCOCCOCOSOOCOOSCOOOOOOOOOOOOOOCOoO 
NOUS WN 0 OONAU EWN O OD NAME WN OOOn 


ts 4s 2 as bs ss 2 


0000 ORD 0 
$GETJPI_G GETJPI_ARGBLK GET ACCUMULATED CPU TIM 
50 04 AC 00 OVL 4(AP) ,RO- GET ADDRESS OF DUAL_QUAD_WORDS 
80 OO3C'CF 7D MOVQ W*CPU_TIME,(RO)+ sSAVE STARTING CPU TT 
oF PUSHAB (RO) :STACK ADDRESS OF Rios fon : ree TIME 
08 AO OO4C'CF 00 VL W*PAGE FAULTS, a ;STORE STARTING # PAG 
00000000'GF 01 FB cos #1,G*SYSS$GETTI GET STARTING WALL CLOCK Time 
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E 
FF 
138 -SBTTL MACSTIMER_OFF FINISH TIMING A BLOCK OF CODE | : 
? ! § ; FUNCTIONAL DESCRIPTION: | ' 
6 124; THIS ROUTINE COMPUTES THE CPU TIME AND ELAPSED TIME REQUIRED | ' 
9 6 5: FOR A BLOCK OF CODE. ' 
026] ; : CALLING SEQUENCE: | 
026 129; PUSHAB DUAL_QUAD_WORD ' 
? : ? 3 CALLS #1,MACSTIMER_OFF | : 
3 : § : INPUTS: : 
0026 134; DUAL _QUAD_WORD 1s THE ADDRESS OF THE SAME DUAL QUAD WORD PASSED 
0026 135; TO MACSTIMER_ON TO START TIMING THE BL ' 
0026 1 § : THE ACCUMULATED CPU TIME IS RETURNED IN The FIRST ' 
026 137; QUAD WORD (DELTA FORMAT) AND THE ELAPSED TIME 
0026 138; 1S RETURNED IN THE SECOND QUAD WORD. 
0026 139; ' 
0026 140 ;-- ' 
0026 = 141 ' 
0026 148 -ALIGN LONG ' 
0028 143 MACSTIMER_OFF:: ' 
0600 0028 144 .@ORD “M<R9,R10> REGISTER SAVE MASK ' 
002A 145 $GETJPI_G GETJPI_ARGBLK [GET ACCUMULATED CPU TIME | ' 
SA 0044'CF 9E 0035 146 MOVAB “W*TIME,RTO :POINT TO QUADWORD ' 
6A OF OO3A 147 PUSHAB (R10) [STACK QUADWORD AD | 
00000000'GF 01 FB 003¢ 148 CALLS #1,G*SYSSGETTIM :GET CURRENT WALL CLOCK TIME ' 
50 04 AC D0 004 149 MOVL 4 (AP) ,RO POINT TO FIRST QUA ' 
59 OO3C'°CF 9E 0047 150 MOVAB W*CPU_TIME,R9 :POINT TO CPU-TIME QUAD WORD ' 
80 89 60 C O04¢ 151 SUBL (RO), TR9) +, (RO) + ; COMPUTE ACCUMULATED CPU TIME 
9 60 09 930 13¢ SBWC (RO), (RY) ' 
80 69 D0 005 15 MOVL (RO), (RO) + STORE IN THE QUADWORD 
80 BA C2 0056 154 SUBL2 (R105+,(RO)+ FIGURE ELAPSED REAL TIME ' 
6A 09 0059 155 SBwC (R10), (RO)+ ' 
60 OO04C'CF 60 C3 005c 156 SUBL3. (RO),W*PAGE_FAULTS, (RO) ‘COMPUTE # OF PAGE FAULTS THIS PHASE ' 
04 006 157 ET ' 
006 158 
0063 «159 | 
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ymbol table “SEP=- :50: ACRO.SRC ER.MAR; (4) | 
Symbol tabl orSee= 138s 07:40:03 EMACR TIM 1 . | 
SSARGS = 7 
$$T1 = 0 
CPU_TIME £ R D 02 | 
GETIPI$_ASTADR = 1 | 
GETJPIS_ASTPRM = 8 dN 
GETJPIS—EFN = 04 | 
GETJPI$_10SB = 00000014 
GETJPIS_ITMLST = SN oCOF 
GETJPIS-NARGS = 9000000 | 
GETJPI$S_PIDADR = 0 8 08 
GETJPI$_PRCNAM = 0000000¢ 
GETJP1_ARGBLK 4 8 8 R 08 
GET JPA LIST 00 2 
JPI$S_CPUTIM = 00000407 
JPI$_PAGEFLTS = 0000040A 
MACSTIMER_OFF 00000028 RG 03 
MACSTIMER_ON 00000000 RG 03 
PAGE FAULTS 0000004C R_ D Oe 
SYSSGETJPI eeeeeeee GX 0 
SYSSGETTIM ektkkeee x 03 
TIME 00000044 R D 02 
peewee nce ne once nen + ; 
! Psect synopsis H | 
name ocation 0. ributes 
PSECT ALL ti PSECT N Attribut 
° ° 00000000 ( 0.) 00 ¢ QO.) NOPIC USR CON ABS LCL NOSHR NOEXE NORD NOWRT NOVEC BYTE 
SABSS$ 00000000 <¢ 0.) O1¢ +1.) NOPIC USR CON ABS LCL NOSHR EXE RD WRT NOVEC BYTE 
MACSTIMER_DATA 00000050 80.) 02 ¢ 2.) NOPIC USR CON’ REL LCL NOSHR NOEXE RD WRT NOVEC LONG 
MAC$RO_COBE_P15 00000063 ( 99.) 03 ¢ 3.) NOPIC USR CON’ REL GBL NOSHR EXE RD NOWRT NOVEC LONG 
dese eee wee ee eH ee eS 
! Performance indicators ! 
os | 
Phase Page faults CPU Time Elapsed Time 
Initialization 36 00:00:00.03 00:00:01.58 
Command processing \¢¢ 00:00:00.41 00:00:03.79 
Pass 139 BP 28:8) 0 00:00:07.55 
sysbol, table sort al 00: 0:00:39 SR 
ass : : . : : . | 
Symbol iable output 4 $0:0 00:08 $6 ;00;00:02 
Psect synopsis output 1 8 298: 0.01 00:00:00.01 
Cross-reference output 00:00:00.00 OR? R808 +BY 
Assembler run totals 35 00:00:02.07 00:00:15.01 | w 
The working set Limit was 1050 pages. 
8305 bytes (17 pages) of virtual memory were used to buffer the intermediate code. 
There were 10 pages of symbol table space allocated to hold 128 non-local ae 0 local symbols. Ms 
159 source Lines were read in Pass 1, producing 16 object records in Pass 2. Mi 


12 pages of virtual memory were used to define 11 macros. 
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Macro Library name Macros defined 
Rtitttn § ent .OBJJMACRO.MLB: 1 0 
“$255$DUA28: CSYSLIBJSTARLET .MLB;2 8 

TOTALS (all Libraries) 8 


199 GETS were required to define 8 macros. 


There were no errors, warnings or information messages. 
MACRO/LIS=L1S$:TIMER/OBJ=OBJ$: TIMER MSRC$:TIMER/UPDATE=(ENHS$: TIMER) +LIB$:MACRO/LIB 
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